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THE CIVIL WAR GAME 


DECUS Program Library Write-up 


DEC US No. 8-332 


Th,^ BA S| C program simulate the Civil War. Statistics, where possible, were used in 

h,s program. Since the C.vi War was won or lost mostly by manpower and money, that 
IS what this program is primarily based upon. money, rnar 

The following conditions prevail: 

Each soldier needs: 1 gun, 1 ration of food, and $45 in pay. 

Each gun costs $50 and each ration of food costs $40. 

If the above is not provided, starvation, desertion, and death rates increase. 

The total amount of money that can be spent by either side is based upon total ex- 
penditures of the Civil War. 

A surrender occursifthe total number of men available reaches 300,000 and/or the 
treasury has $200,000. 7 rne 

Please use the following codes when playing this game: 0=no; l=yes 

STRATEGY CODES 


TYPE 

Charge 

Defend 

Retreat 


COD E 

2 

3 

4 


SIGNIFICANCE 

Highest level of fighting 
Medium level of action 
Lowest level of fighting 


Note: F ° r very large numbers, the computer will type a number such as 1.234567E+N. 

I?234567E+7 is^ual'* "" '** ° f ^ ^ ^ F " -"I* 























* *5!? R0NALD SERVI CLASS OF 1971 THE CIVIL WAR GAME 

100 LET Al=300000 

101 LET R»28 
105 LET F= 1 5 

1 10 LET A2=3. 7E+9 
120 LET A3= 300000 
130 LET A4= 1 •14E+9 
140 LET B1*300000 
150 LET B2=300000 
160 LET C1 = 300000 
170 LET 02=300000 
180 LET C3= 100000 
190 LET C4=200000 
200 LET C5= 450000 
210 LET C6=27000 
220 LET D1 = 7E+8 
230 LET D2= 5E+8 

260 LET C4=INT( C4+200000-A3/2) 

261 IF A1 >0 THEN 264 

262 LET Al = R 


264 LET C9 = C9+ 450000 

265 LET Dl = Dl-(((A1 +A5>*F>+ ((A1 +A5>*40)+ C7*50) 

266 IF C4>0 THEN 268 

267 LET C4= 0 


268 IF D1 <200000 THEN 1950 

270 PRINT •* 

271 PRINT ” 

272 PRINT 

273 PRINT 

274 PRINT 


REPORT TO COMMANDER IN CHIEF*’ 
UNION ARMY” 


28 0 PRINT”ENEMY 
28 5 PRINT” 

290 PRINT” 

300 PRINT” 

302 PRINT” 

305 PRINT” 

307 PRINT” 

309 PRINT” 

310 PRINT 

311 PRINT 

312 PRINT 

313 PRINT 

320 PRINT”UNION 

321 PRINT" 

330 PRINT" 

340 PRINT” 

350 PRINT" 

355 PRINT" 

360 PRINT” 

370 PRINT" 

371 PRINT” 


STATI STICS: ” 

CONFEDERATE MEN ELIGIBLE FOR THE DRAFT”; A4 
CONFEDERATE TROOP LEVEL AT”! A3 
CONFEDERATE MEN DRAFTED "iA6 

CONFEDERATE MEN KILLED IN PAST THREE MONTHS"!G2 
CONFEDERATE MEN KILLED BY DISEASE”! G5 
CONFEDERATE MONEY REMAIN IN G”! D2! "DOLL ARS” 
CONFEDERATE WEAPON SUPPLY”; C4! ”RI FLES" 


ARMY STATISTICS:" 

TROOP DATA:” 

UNION TROOP LEVEL AT”!A1 

UNION MEN DRAFTED IN PAST THREE M0NTHS"!A5 
UNION MEN ELIGIBLE FOR THE DRAFT”! A2 
UMION MEN KILLED BY DISEASE”! G3 
UNION MEN KILLED IN PAST THREE MONTHS"! G1 
UNION MEN UMO DODGED OR DESERTED"!H1+H2 
UNION WEAPON SUPPLY"; C9! "RIFLES" 
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38 0 
390 
400 
410 
420 

430 

431 

432 

433 
910 
920 
9 30 
931 
9 32 

1000 

1001 

1005 

1006 

1040 

1041 

1045 

1046 
1050 
1055 
1060 

1065 

1066 

1070 

1071 
1100 
1101 

1105 

1106 

1107 

1108 

1109 

1110 
11 1 1 
1130 
1140 
1150 
1240 
1245 
1260 
1270 
1280 


SPENT 

SPENT 

SPENT 

TOTAL 

UNION 


ON FOOD"! A 1*40! "DOLLARS” 

ON WEAPONS*'! C7* 501 "DOLLARS” 

FOR PAY"! A 1*F! "DOLLARS" 

MONEY SPENT*'! Al*(90+F>! “DOLLARS** 
TREASURY*'!D1! “DOLLARS*' 


YOU WISH TO CONTINUE"! 


WOILD YOU LIKE TO EMPLOY FOR THE NEXT* 


PRINT" MONEY:*’ 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 
PRINT 
PRINT 
PRINT "DO 
INPUT X 

IF X = 0 THEN 2000 
PRINT 
PRINT 

PRINT "WHICH STRATEGY 
PRINT"THREE MONTHS"! 

INPUT E 
PRINT 

PRINT "HOW MANY MEN 
PRINT "PRESENT TROOP 
INPUT A5 
PRINT 

IF A5< = A2 THEN 1065 

PRINT "THE MAXIMUM TROOPS YOU CAN DRAFT IS*'!A2 
GOTO 1040 

PRINT "HOW MUCH DO YOU WANT TO 
PRINT" THE NEXT THREE MONTHS"! 

INPUT F 
PRINT 

PRINT’HOW MANY WEAPONS DO YOU WANT 
PRINT"NEXT THREE MONTHS"! 

INPUT C7 

TH EN 11 09 

ONLY HAVE "! C9J "WEAPONS" 


WOULD YOU 
LEVEL: *'! 


LIKE TO ENLIST TO ADD TO YOUR" 


PAY EACH MAN IN YOUR ARMY FOR' 


FOR YOUR ARMY FOR THE" 


IF C7< = C9 
PRINT**YOU 
GOTO 1071 
PRINT 
PRINT 
PRINT 

IF Dl<200000 THEN 
IF E= 3 THEN 1290 
IF E=4 THEN 1330 
GO SUB 1 690 
LET Gl = 9000+R*l00 
GO SUB 1690 
LET G2= 1 1000+ R* l 00 
GOTO 1370 


1950 


1285 GOSUB 1690 

1290 LET Gl = 6000+ R*50 

1300 GOSUB 1690 

1310 LET G2=6000+R*50 

1320 GOTO 1370 

1330 GOSUB 1690 

1340 LET G1= 3000+R* 50 

1350 GOSUB 1690 

1360 LET G2= 2000+ R* 50 

1370 IF C7>=A1 THEN 1400 

1380 LET G4=INT< 1/3*A1 ) 
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1400 LET D2sD2-( 1 1 5*C A3+A6) ) 

1410 IF D2<»200000 THEN I960 
1420 LET C9»INTCC9-<C7/2>> 

1500 LET H 1*INT< 1/5*A5> 

1505 LET G3*INT< 36/11*G1 > 

1507 LET G5=INT< 258/94*62) 

1510 IF F> = 45 THEN 1530 

1520 LET H2»INT< 1/45*C 45-F)*Al ) 

1530 LET A1 = INT< A1+A5-H 1-H2-G1-63-64) 

1689 GOTO 1800 

1690 LET R1 = ABS< R*A1*3» 1 41 5* RNDC 1) ) 
1720 LET R2=R1/41 

1730 LET R»R2-INTCR2> 

1735 LET R=INT(41*R> 

1740 RETURN 
18 0 0 60SUB 1690 
1810 LET A6«R*5000 
1820 LET H3*INT< 1/5*A6) 

18 30 IF C4>*A6 THEN 18 50 
1840 LET A?=CA6-C4>*!/3 


18 50 
18 60 
1890 
1895 
1900 
1910 
1920 

19 40 
1950 
19 55 
1956 
19 57 
1960 
19 65 
1970 
2000 


LET A3 S A3+A6~H 3- 62- G5 
LET A2»A2-A5 
LET A4*A4-A6 

IF Al + A2<300000 THEN 1956 
IF A4+A3<300000 THEN 1970 
LET G2«G2+A7+G5 
LET 61*61 + 64+63 
GOTO 260 

™ T ; 0 ™ north HAS SURRENDERED because of lack OF FINDS" 
GOTO T 200B E f ‘ 0RTH HAS SURRENDERED BECAUSE OF THE LACK OF MEN" 
S0U ' IH HAS SURRENDERED BECAUSE OF LACK OF FUNDS" 
PRINT "THE SOUTH HAS SURRENDERED BECAUSE OF LACK OF MAN POWER* 
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